﻿Public Class ucCalibreSimples
    Public Property DESC_CALIBRE As String
        Get
            Return cmbCalibre.Text
        End Get
        Set(value As String)
            cmbCalibre.Text = value
        End Set
    End Property
    Private Sub ucCalibreSimples_Load(sender As Object, e As EventArgs) Handles Me.Load
        populaCalibres(0)
    End Sub

    Private Sub populaCalibres(ByVal id_tipo_arma As Integer)
        Try
            Dim calibreBO As New calibreBO
            cmbCalibre.DisplayMember = "CALIBRE"
            cmbCalibre.ValueMember = "ID_CALIBRE"
            cmbCalibre.DataSource = calibreBO.getTodosCalibres
        Catch ex As Exception
            generica.gravaErro(ex)
        End Try

    End Sub
End Class
